bilgisayarın donanım bilgilerini alma
64x64

Berna

28.8.2015 00:00:00

C# ile 4 button ve 4 labelle yaptığım bilgisayarın donanım bilgilerini çeken bir program yaptım. Tek buton ile bilgisayarın donanım bilgilerini ve kontrol saatini access ya da excelde tablo tarzında veren bir program yapmam gerekmekte. Bu konuda yardımcı olur musunuz? 

64x64

Turan

31 Ağustos 2015 Pazartesi

Merhaba,

   Öncelikle References kısmına sağ tık Add Reference > Assembilies>Extension sekmesinden Microsoft.Office.Interop.Excel dll ni projemize ekliyoruz. Sürüm fark etmez istediğinizi yükleyebilirsiniz. Aktarma işleminin yapılacağı sayfanın en üstüne " using Excel = Microsoft.Office.Interop.Excel; " kodunu ekliyoruz. ve aşağıdaki kodları gerekli alana yapıştırıp veri göndereceğiniz satır ve sutunları düzenledikten sonra problemsiz bir sekilde verilerileriniz excel dosyasına aktarılacaktır.

 

private void btnExceleAktar_Click(object sender, EventArgs e)
        {
            Excel.Application xlApp = new Excel.Application();

            if (xlApp == null)
            {
                throw new Exception("Excel Başlatılamadı. Excel Kurulu Olmaya Bilir.");
            }
            //C dizinine denemee adında klasör atıp içine boş bir sablon.xls dosyası at uygulama o dosya yı kullanıp yeni bir tane excel dosyası oluşturacak.. 
            Excel.Workbook wb = xlApp.Workbooks.Open("C:\\denemee\\sablon.xls",
                   Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value,
                   Missing.Value,
                   Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value,
                   Missing.Value);

            xlApp.Visible = false;
            xlApp.DisplayAlerts = false;

            Excel.Worksheet ws = (Excel.Worksheet)wb.Sheets["sayfa1"];
            ws.Cells[2, 3] = "2. Satır 3. sutuna değer gönderiyorum...";
            wb.SaveAs("C:\\denemee\\deneme.xls", Missing.Value, Missing.Value, Missing.Value, Missing.Value, Missing.Value,
      Microsoft.Office.Interop.Excel.XlSaveAsAccessMode.xlNoChange, Missing.Value, Missing.Value,
      Missing.Value, Missing.Value, Missing.Value);
            wb.Close(true, Missing.Value, Missing.Value);
            //yeni dosyanın adını yoluyla birlikte veriyoruz.
            xlApp.Workbooks.Open("C:\\denemee\\deneme.xls");
            xlApp.Visible = true;
        }

 

 

64x64

Berna

4 Eylül 2015 Cuma
64x64

Berna

4 Eylül 2015 Cuma
Yorum yaz